-- background: 4582 from stack: in
-- bmap block id: 4659
-- flags: 4000
-- background id: 0
-- name: CassetteLabel


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=49 top=192 right=213 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: Atitle
----- HyperTalk script -----
on returnInField
  click at location of field "Btitle"
end returnInField



-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=144 top=18 right=192 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: B1


-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=18 right=192 bottom=144
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: A1


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=144 top=228 right=278 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: B2


-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=228 right=278 bottom=144
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: A2


-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=49 top=208 right=229 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: Btitle
----- HyperTalk script -----
on returnInField
  closeField
end returnInField



-- part 10 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=45 top=2 right=17 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: noiseReduction
----- HyperTalk script -----
on mouseDown
  put "None;Dolby B;Dolby C;dbx;Dolby B with HXPro;" & "Dolby C with HXPro;Dolby S with HXPro;Other" into choices

  put the value of 1 into lastItem
  get topLeft of target

  get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))

  if the result is not empty then put the result

  if item 1 of it is not empty then
    put item 1 of it into bkgnd fld "noiseReduction"
    if item 1 of it is "Other" then
      ask "Enter Noise Reduction System"
      if it is not empty then
        put it into bkgnd field "noiseReduction"
      end if
    end if
  end if
end mouseDown


-- part 11 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=205 top=2 right=17 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: date


-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=191 right=203 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: catalog number


-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=203 right=217 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: tape brand
----- HyperTalk script -----
on mouseDown
  put  "BASF;Denon;DIC;Fuji;GE;JVC;Loran;Maxell;Memorex;" & "Nakamichi;Realistic;Recoton;Sony;TDK;3M;Other" into choices

  put the value of 1 into lastItem
  get right of target

  get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))

  if the result is not empty then put the result

  if item 1 of it is not empty then
    put item 1 of it into bkgnd fld "tape brand"
    if item 1 of it is "Other" then
      ask "Enter Tape Brand"
      if it is not empty then
        put it into bkgnd field "tape brand"
      end if
    end if
  end if
end mouseDown


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=216 right=228 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: tape length
----- HyperTalk script -----
on mouseDown
  put "30 min;45 min;60 min;75 min;80 min;90 min;" & "100 min;110 min;120 min;Other" into choices

  put the value of 1 into lastItem
  get bottomRight of target
  get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))

  if the result is not empty then put the result

  if item 1 of it is not empty then
    put item 1 of it into bkgnd fld "tape length"
    if item 1 of it is "Other" then
      ask "Enter tape length"
      if it is not empty then
        put it into bkgnd field "tape length"
      end if
    end if
  end if
end mouseDown


-- part 15 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=49 top=194 right=226 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 15018
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: title